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DIRECTORY 

ControlDefs: FROM "controldef s" USING [FrameHandle] , 
CoreSwapDefs: FROM "coreswapdef s" USING [SVPointer], 
DIDefs: FROM "didefs" USING [ESPointer], 
ProcessDefs: FROM "processdef s" USING [ProcessHandle] . 
SegmentDefs: FROM "segmentdefs" USING [Fil eHandle] ; 

DebugMiscDefs: DEFINITIONS SHARES ProcessDefs - 

BEGIN 

commander: PROCEDURE [startingcontext: ControlDefs . FrameHandle, 

startingpsb: ProcessDefs. ProcessHandle]; 
confirm: PROCEDURE; 

CopyRead, CopyWrite: PROCEDURE [to, from: POINTER, nwords: CARDINAL]; 
coremap: PROCEDURE; 

DebugCommand: PROCEDURE [sp: CoreSwapDefs .SVPointer]; 
DFreeString: PROCEDURE [s: STRING]; 

DGetString: PROCEDURE [n: INTEGER] RETURNS [s: STRING]; 
DisplayEvalStack: PROCEDURE; 
DReadNumber: PROCEDURE [default: UNSPECIFIED, radix: CARDINAL] 

RETURNS [UNSPECIFIED]; 
DWriteLonglnteger: PROCEDURE [number: LONG INTEGER, radix: CARDINAL]; 
DWriteLongPointer: PROCEDURE [number: LONG POINTER, radix: CARDINAL]; 
IgnoreComment : PROCEDURE; 
InterpretString: PROCEDURE [s: STRING. 

proc: PROCEDURE[esp: DIDefs .ESPointer] . locals: BOOLEAN]; 
LongCopyRead: PROCEDURE [to: POINTER, from: LONG POINTER, nwords: CARDINAL]; 
LongCopyWrite: PROCEDURE [to: LONG POINTER, from: POINTER, nwords: CARDINAL]; 
StringExpressionToNumber: PROCEDURE [s: STRING, defradix: CARDINAL] 

RETURNS [v: UNSPECIFIED]; 
UCSHandler: PROCEDURE [psv: CoreSwapDefs .SVPointer. 

signal : UNSPECIFIED]; 
UncaughtSignal : PROCEDURE; 
WriteCharZ: PROCEDURE [c: CHARACTER]; 
WriteEOL: PROCEDURE; 

--signals 

CommandAbort: SIGNAL; 
CommandNotAl lowed: SIGNAL; 
ControlDEL: SIGNAL; 
DebugAbort: SIGNAL; 
DebugProceed: SIGNAL; 
LookupFail: SIGNAL [s: STRING]; 
Quit: SIGNAL; 

-- InternalNub / Install Procedures 

InitializeDebuggerFiles: PROCEDURE [debuggee: SegmentDefs . FileHandle]; 
SaveSignallerGF: PROCEDURE; 
Debuglnit: PROGRAM [herald: STRING]; 

END... 


